home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / space / educatio / mac / spcdctrs.sea / SpaceEducatorsHandbook / TO BE DETERMINED / card_3049.txt < prev    next >
Text File  |  1993-01-04  |  3KB  |  138 lines
  1. -- card: 3049 from stack: in
  2. -- bmap block id: 3642
  3. -- flags: 0000
  4. -- background id: 2644
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=367 top=55 right=79 bottom=477
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: State Selection
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 2948 of stack "State/Benfits/Stack"
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 8 (button)
  29. -- low flags: 00
  30. -- high flags: 8003
  31. -- rect: left=201 top=229 right=251 bottom=301
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Go Back
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to recent card
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 11 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=50 top=6 right=19 bottom=84
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: globalfind
  59. ----- HyperTalk script -----
  60. on mouseup
  61.   repeat with y = 1 to 100
  62.     set cursor to busy
  63.     global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  64.     global t0, x, r,hat,straw,buff1,buff2,count1,count2, t45,t46,t47,t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  65.     find whole t0
  66.     get the result
  67.     if count1>=3 and it is not empty then
  68.       put the number of this card into hat
  69.       put the foundchunk into buff1
  70.       show message box
  71.       flash 2
  72.       exit mouseup
  73.     else
  74.       if it is not empty then
  75.         add 1 to count1
  76.         add 1 to x
  77.         put "t"&x into r
  78.         set lockscreen to true
  79.         go to "HOME CARD"
  80.         send "mouseup" to button "GlobalFind"
  81.       else
  82.         put the number of this card into hat
  83.         put the foundchunk into buff1
  84.         exit mouseup
  85.       end if
  86.     end if
  87.   end repeat
  88. end mouseup
  89. on enterkey
  90.   global t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15, t16,t17,t18,t19,t20,t21,t22,t23,t24,t25,t26,t27,t28,t29,t30, t31,t32,t33,t34,t35,t36,t37,t38,t39,t40,t41,t42,t43,t44
  91.   global t0,x,r,hat,straw,buff1,buff2,count1,count2,t45,t46,t47, t48,t49,t50,t51,t52,t53,t54,t55,t56,t57,t58,t59,t60
  92.   hide message box
  93.   find whole t0
  94.   put 0 into count1
  95.   put the number of this card into straw
  96.   put the foundchunk into buff2
  97.   if straw = hat and buff1 = buff2 then
  98.     add 1 to x
  99.     put "t"&x into r
  100.     set lockscreen to true
  101.     go to "HOME CARD"
  102.     send "mouseup" to button "GlobalFind"
  103.   end if
  104. end enterkey
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.